home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPapp Portal / admin_users.asp < prev    next >
Encoding:
Text File  |  2002-03-12  |  20.5 KB  |  647 lines
  1. <!-- #include file="i_utils.asp" -->
  2. <%
  3. %>
  4. <%
  5.     dim dtInserted
  6.     dim dtModified
  7.     dim user_id
  8.     dim user_name
  9.     dim f_name
  10.     dim l_name
  11.     dim email
  12.     dim password
  13.     dim addr1
  14.     dim addr2
  15.     dim city
  16.     dim state
  17.     dim postalcode
  18.     dim country
  19.     dim phone
  20.     dim fax
  21.     dim notes
  22.     dim accesslevel
  23.     dim mailing_list
  24.     dim edit_users_sql
  25.     dim edit_link
  26.     dim view_users_sql
  27.  
  28. sub request_edit_users
  29. ''' request expected input parameters for this form
  30.     dtInserted = request("dtInserted")
  31.     dtModified = request("dtModified")
  32.     user_id = request("user_id")
  33.     user_name = request("user_name")
  34.     f_name = request("f_name")
  35.     l_name = request("l_name")
  36.     email = request("email")
  37.     password = request("password")
  38.     addr1 = request("addr1")
  39.     addr2 = request("addr2")
  40.     city = request("city")
  41.     state = request("state")
  42.     postalcode = request("postalcode")
  43.     country = request("country")
  44.     phone = request("phone")
  45.     fax = request("fax")
  46.     notes = request("notes")
  47.     accesslevel = request("accesslevel")
  48.     mailing_list = request("mailing_list")
  49. end sub
  50. sub request_view_users
  51. ''' request expected input parameters for this form
  52.     edit_link = request("edit_link")
  53.     user_id = request("user_id")
  54.     user_name = request("user_name")
  55.     f_name = request("f_name")
  56.     l_name = request("l_name")
  57.     email = request("email")
  58.     city = request("city")
  59.     state = request("state")
  60.     postalcode = request("postalcode")
  61.     country = request("country")
  62.     dtInserted = request("dtInserted")
  63.     accesslevel = request("accesslevel")
  64.     mailing_list = request("mailing_list")
  65. end sub
  66.  
  67. sub validate_edit_users
  68. ''' request and validate data entered from this form
  69.     dtInserted = trim(request("dtInserted"))
  70.     if dtInserted <> "" AND (not isdate(dtInserted)) then
  71.         error_list.add "484712date"," must be a valid date (MM/DD/YY)."
  72.         b_error = true
  73.     end if
  74.     dtModified = trim(request("dtModified"))
  75.     if dtModified <> "" AND (not isdate(dtModified)) then
  76.         error_list.add "484713date"," must be a valid date (MM/DD/YY)."
  77.         b_error = true
  78.     end if
  79.     user_id = trim(request("user_id"))
  80.     user_name = trim(request("user_name"))
  81.     if user_name = "" then
  82.         error_list.add "484698","username must be specified."
  83.         b_error = true
  84.     end if
  85.     f_name = trim(request("f_name"))
  86.     l_name = trim(request("l_name"))
  87.     email = trim(request("email"))
  88.     if email = "" then
  89.         error_list.add "484701","email must be specified."
  90.         b_error = true
  91.     end if
  92.     password = trim(request("password"))
  93.     if password = "" then
  94.         error_list.add "484702","password must be specified."
  95.         b_error = true
  96.     end if
  97.     addr1 = trim(request("addr1"))
  98.     addr2 = trim(request("addr2"))
  99.     city = trim(request("city"))
  100.     state = trim(request("state"))
  101.     postalcode = trim(request("postalcode"))
  102.     country = trim(request("country"))
  103.     phone = trim(request("phone"))
  104.     fax = trim(request("fax"))
  105.     notes = trim(request("notes"))
  106.     accesslevel = trim(request("accesslevel"))
  107.     mailing_list = trim(request("mailing_list"))
  108.     if mailing_list = "" then
  109.         error_list.add "484715","mailing list must be specified."
  110.         b_error = true
  111.     end if
  112. end sub
  113. sub validate_view_users
  114. ''' request and validate data entered from this form
  115.     edit_link = trim(request("edit_link"))
  116.     user_id = trim(request("user_id"))
  117.     user_name = trim(request("user_name"))
  118.     f_name = trim(request("f_name"))
  119.     l_name = trim(request("l_name"))
  120.     email = trim(request("email"))
  121.     city = trim(request("city"))
  122.     state = trim(request("state"))
  123.     postalcode = trim(request("postalcode"))
  124.     country = trim(request("country"))
  125.     dtInserted = trim(request("dtInserted"))
  126.     if dtInserted <> "" AND (not isdate(dtInserted)) then
  127.         error_list.add "484725date","added must be a valid date (MM/DD/YY)."
  128.         b_error = true
  129.     end if
  130.     accesslevel = trim(request("accesslevel"))
  131.     mailing_list = trim(request("mailing_list"))
  132. end sub
  133.  
  134. sub get_defaults_edit_users
  135. ''' set default values for this form
  136.     mailing_list = 1
  137. end sub
  138. sub get_defaults_view_users
  139. ''' set default values for this form
  140.     mailing_list = 1
  141. end sub
  142.  
  143. sub db_select_edit_Users
  144.     sql = "SELECT " & _ 
  145.     "dtInserted, " & _ 
  146.     "dtModified, " & _ 
  147.     "user_id, " & _ 
  148.     "user_name, " & _ 
  149.     "f_name, " & _ 
  150.     "l_name, " & _ 
  151.     "email, " & _ 
  152.     "password, " & _ 
  153.     "addr1, " & _ 
  154.     "addr2, " & _ 
  155.     "city, " & _ 
  156.     "state, " & _ 
  157.     "postalcode, " & _ 
  158.     "country, " & _ 
  159.     "phone, " & _ 
  160.     "fax, " & _ 
  161.     "notes, " & _ 
  162.     "accesslevel, " & _ 
  163.     "mailing_list FROM Users" & _ 
  164.     " WHERE " & _ 
  165.     "Users.user_id = " & to_sql(user_id,"number") & ""
  166.     on error resume next
  167.     set rs = cn.Execute(sql)
  168.     if err.number <> 0 then
  169.         b_error = true
  170.         error_list.add "select_data_edit_Users", "The data selection failed. " & err.description
  171.     elseif rs.EOF then
  172.         b_results = false
  173.         msg_list.add "select_data_edit_Users", "The record was removed from the database."
  174.     else
  175.         dtInserted = rs("dtInserted")
  176.         dtModified = rs("dtModified")
  177.         user_id = rs("user_id")
  178.         user_name = rs("user_name")
  179.         f_name = rs("f_name")
  180.         l_name = rs("l_name")
  181.         email = rs("email")
  182.         password = rs("password")
  183.         addr1 = rs("addr1")
  184.         addr2 = rs("addr2")
  185.         city = rs("city")
  186.         state = rs("state")
  187.         postalcode = rs("postalcode")
  188.         country = rs("country")
  189.         phone = rs("phone")
  190.         fax = rs("fax")
  191.         notes = rs("notes")
  192.         accesslevel = rs("accesslevel")
  193.         mailing_list = rs("mailing_list")
  194.     end if
  195.     rs.Close
  196.     on error goto 0
  197. end sub
  198. sub db_insert_edit_Users
  199.     sql = "INSERT INTO Users" & _ 
  200.     "(" & _ 
  201.     "user_type_id," & _ 
  202.     "user_name," & _ 
  203.     "f_name," & _ 
  204.     "l_name," & _ 
  205.     "email," & _ 
  206.     "[password]," & _ 
  207.     "addr1," & _ 
  208.     "addr2," & _ 
  209.     "city," & _ 
  210.     "state," & _ 
  211.     "postalcode," & _ 
  212.     "country," & _ 
  213.     "phone," & _ 
  214.     "fax," & _ 
  215.     "notes," & _ 
  216.     "selfemp," & _ 
  217.     "dtInserted," & _ 
  218.     "dtModified," & _ 
  219.     "accesslevel," & _ 
  220.     "mailing_list," & _ 
  221.     "util_val," & _ 
  222.     "util_flag" & _ 
  223.     ") VALUES (" & to_sql(user_type_id,"number") & "," & _ 
  224.     "" & to_sql(user_name,"text") & "," & _ 
  225.     "" & to_sql(f_name,"text") & "," & _ 
  226.     "" & to_sql(l_name,"text") & "," & _ 
  227.     "" & to_sql(email,"text") & "," & _ 
  228.     "" & to_sql(password,"text") & "," & _ 
  229.     "" & to_sql(addr1,"text") & "," & _ 
  230.     "" & to_sql(addr2,"text") & "," & _ 
  231.     "" & to_sql(city,"text") & "," & _ 
  232.     "" & to_sql(state,"text") & "," & _ 
  233.     "" & to_sql(postalcode,"text") & "," & _ 
  234.     "" & to_sql(country,"text") & "," & _ 
  235.     "" & to_sql(phone,"text") & "," & _ 
  236.     "" & to_sql(fax,"text") & "," & _ 
  237.     "" & to_sql(notes,"text") & "," & _ 
  238.     "" & to_sql(selfemp,"text") & "," & _ 
  239.     "" & to_sql(now,"date") & "," & _ 
  240.     "" & to_sql(now,"date") & "," & _ 
  241.     "" & to_sql(accesslevel,"number") & "," & _ 
  242.     "" & to_sql(mailing_list,"number") & "," & _ 
  243.     "" & to_sql(util_val,"number") & "," & _ 
  244.     "" & to_sql(util_flag,"number") & ")" & _ 
  245.     ""
  246.     'response.write sql
  247.     on error resume next
  248.     cn.Execute(sql)
  249.     if err.Number <> 0 then
  250.         b_error = true
  251.         error_list.add "db_insert_edit_Users" & err.Number ,"The database insert failed. " & err.Description
  252.     else
  253.         set rs = cn.Execute("SELECT @@IDENTITY")
  254.         user_id = rs(0)
  255.         rs.Close
  256.         msg_list.add "db_insert_edit_Users","The database insert was successful."    end if
  257.     on error goto 0
  258. end sub
  259. sub db_update_edit_Users
  260.     sql = "UPDATE Users SET " & _ 
  261.     "user_type_id = " & to_sql(user_type_id,"number") & ", " & _ 
  262.     "user_name = " & to_sql(user_name,"text") & ", " & _ 
  263.     "f_name = " & to_sql(f_name,"text") & ", " & _ 
  264.     "l_name = " & to_sql(l_name,"text") & ", " & _ 
  265.     "email = " & to_sql(email,"text") & ", " & _ 
  266.     "[password] = " & to_sql(password,"text") & ", " & _ 
  267.     "addr1 = " & to_sql(addr1,"text") & ", " & _ 
  268.     "addr2 = " & to_sql(addr2,"text") & ", " & _ 
  269.     "city = " & to_sql(city,"text") & ", " & _ 
  270.     "state = " & to_sql(state,"text") & ", " & _ 
  271.     "postalcode = " & to_sql(postalcode,"text") & ", " & _ 
  272.     "country = " & to_sql(country,"text") & ", " & _ 
  273.     "phone = " & to_sql(phone,"text") & ", " & _ 
  274.     "fax = " & to_sql(fax,"text") & ", " & _ 
  275.     "notes = " & to_sql(notes,"text") & ", " & _ 
  276.     "selfemp = " & to_sql(selfemp,"text") & ", " & _ 
  277.     "dtInserted = " & to_sql(dtInserted,"text") & ", " & _ 
  278.     "dtModified = " & to_sql(dtModified,"text") & ", " & _ 
  279.     "accesslevel = " & to_sql(accesslevel,"number") & ", " & _ 
  280.     "mailing_list = " & to_sql(mailing_list,"number") & ", " & _ 
  281.     "util_val = " & to_sql(util_val,"number") & ", " & _ 
  282.     "util_flag = " & to_sql(util_flag,"number") & " WHERE " & _ 
  283.     "user_id = " & user_id & ""
  284.     'response.write sql
  285.     on error resume next
  286.     cn.execute(sql)
  287.     if err.number <> 0 then
  288.         b_error = true
  289.         error_list.add "db_update_edit_Users" & err.Number ,"The database update failed. " & err.Description
  290.     else
  291.         msg_list.add "db_update_edit_Users" & user_id,"The database update was successful."
  292.     end if
  293.     on error goto 0
  294. end sub
  295. sub db_delete_edit_Users
  296.     sql = "DELETE FROM Users" & _ 
  297.     " WHERE " & _ 
  298.     "user_id = " & to_sql(user_id,"number") & ""
  299.     'response.write sql
  300.     on error resume next
  301.     cn.Execute(sql)
  302.     if err.number <> 0 then
  303.         b_error = true
  304.         error_list.add "db_delete_edit_Users" & err.Number ,"The database deletion failed. " & err.Description
  305.     else
  306.         msg_list.add "db_delete_edit_Users","The record was removed."
  307.     end if
  308.     on error goto 0
  309. end sub
  310. sub db_select_view_Users
  311.     view_Users_sql = "SELECT " & _ 
  312.     "user_id, " & _ 
  313.     "user_name, " & _ 
  314.     "f_name, " & _ 
  315.     "l_name, " & _ 
  316.     "email, " & _ 
  317.     "city, " & _ 
  318.     "state, " & _ 
  319.     "postalcode, " & _ 
  320.     "country, " & _ 
  321.     "dtInserted, " & _ 
  322.     "accesslevel, " & _ 
  323.     "mailing_list FROM Users" & _ 
  324.     ""
  325.     if request("sortby") <> "" AND inStr(lcase(view_Users_sql),"order by") = 0 then view_Users_sql = view_Users_sql + " ORDER BY " & request("sortby")
  326. end sub
  327. sub db_delete_view_Users
  328.     sql = "DELETE FROM " & _ 
  329.     ""
  330.     'response.write sql
  331.     on error resume next
  332.     cn.Execute(sql)
  333.     if err.number <> 0 then
  334.         b_error = true
  335.     end if
  336.     on error goto 0
  337. end sub
  338.  
  339. do_search = request("do_search")
  340. ''' request form keys
  341. user_id = request("user_id")
  342. ''' request action
  343. action = lcase(request("action"))
  344. ''' action case handler
  345. select case action
  346.  
  347. case "select_edit_users"
  348. '  select the requested key record from database
  349. if user_id <> "" then
  350.     db_select_edit_Users
  351. else
  352.     b_error = true
  353.     error_list.add "edit_edit_Users", "Specify record to select."
  354. end if
  355.  
  356.  
  357. case "insert_edit_users"
  358. '  request form data and insert a new record into database
  359.  
  360. validate_edit_users
  361. if not b_error then
  362.     db_insert_edit_users
  363. end if
  364.  
  365.  
  366.  
  367. case "update_edit_users"
  368. '  request form data and update an existing database record
  369. validate_edit_users
  370. if not b_error then
  371. if user_id <> "" then
  372.     db_update_edit_users
  373. else
  374.     b_error = true
  375.     error_list.add "update_edit_users", "Specify record to update."
  376. end if
  377. end if
  378.  
  379.  
  380. case "delete_edit_users"
  381. '  delete the requested key database record
  382. if user_id <> "" then
  383.     db_delete_edit_users
  384.     response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
  385. else
  386.     b_error = true
  387.     error_list.add "delete_edit_users", "Specify record to delete."
  388. end if
  389.  
  390.  
  391. end select
  392.  
  393. '  no action was specified, so handle the default case(s)
  394. if user_id <> "" then
  395.     db_select_edit_users
  396. else
  397.     get_defaults_edit_users
  398. end if
  399.  
  400. db_select_view_users
  401.  
  402. %>
  403.  
  404. <!-- #include file='i_header.asp' -->
  405. <!-- #include file='i_menu.asp' -->
  406.  
  407. <!-- #include file="i_menu_admin.asp" -->
  408. <%
  409. display_errs
  410. display_msg
  411. %>
  412.  
  413. <table class='headerTable'>
  414. <tr>
  415. <td class='headerTD'>
  416. <a href='admin_users.asp'>User Manager</A>
  417. </td>
  418. </tr>
  419. </table>
  420. <table  >
  421. <form name="edit_Users" action="admin_users.asp" method="post" >
  422.         
  423.         <input type=hidden name="dtInserted" value="<% =dtInserted %>">
  424.         
  425.         
  426.         <input type=hidden name="dtModified" value="<% =dtModified %>">
  427.         
  428.         
  429.         <input type=hidden name="user_id" value="<% =user_id %>">
  430.         
  431. <tr>
  432.     <td class='labelTD'>username</td>
  433.     <td class='dataTD' >
  434.         <input type=text  name="user_name" size="" maxlength="50" value="<% =user_name%>">
  435.     </td>
  436. </tr>
  437. <tr>
  438.     <td class='labelTD'>first name</td>
  439.     <td class='dataTD' >
  440.         <input type=text  name="f_name" size="" maxlength="50" value="<% =f_name%>">
  441.     </td>
  442. </tr>
  443. <tr>
  444.     <td class='labelTD'>last name</td>
  445.     <td class='dataTD' >
  446.         <input type=text  name="l_name" size="" maxlength="70" value="<% =l_name%>">
  447.     </td>
  448. </tr>
  449. <tr>
  450.     <td class='labelTD'>email</td>
  451.     <td class='dataTD' >
  452.         <input type=text  name="email" size="" maxlength="60" value="<% =email%>">
  453.     </td>
  454. </tr>
  455. <tr>
  456.     <td class='labelTD'>password</td>
  457.     <td class='dataTD' >
  458.         <input type=text  name="password" size="" maxlength="50" value="<% =password%>">
  459.     </td>
  460. </tr>
  461. <tr>
  462.     <td class='labelTD'>address</td>
  463.     <td class='dataTD' >
  464.         <input type=text  name="addr1" size="" maxlength="100" value="<% =addr1%>">
  465.     </td>
  466. </tr>
  467. <tr>
  468.     <td class='labelTD'></td>
  469.     <td class='dataTD' >
  470.         <input type=text  name="addr2" size="" maxlength="50" value="<% =addr2%>">
  471.     </td>
  472. </tr>
  473. <tr>
  474.     <td class='labelTD'>city</td>
  475.     <td class='dataTD' >
  476.         <input type=text  name="city" size="" maxlength="50" value="<% =city%>">
  477.     </td>
  478. </tr>
  479. <tr>
  480.     <td class='labelTD'>state</td>
  481.     <td class='dataTD' >
  482.         <input type=text  name="state" size="" maxlength="50" value="<% =state%>">
  483.     </td>
  484. </tr>
  485. <tr>
  486.     <td class='labelTD'>postal code</td>
  487.     <td class='dataTD' >
  488.         <input type=text  name="postalcode" size="" maxlength="50" value="<% =postalcode%>">
  489.     </td>
  490. </tr>
  491. <tr>
  492.     <td class='labelTD'>country</td>
  493.     <td class='dataTD' >
  494.         <input type=text  name="country" size="" maxlength="50" value="<% =country%>">
  495.     </td>
  496. </tr>
  497. <tr>
  498.     <td class='labelTD'>phone</td>
  499.     <td class='dataTD' >
  500.         <input type=text  name="phone" size="" maxlength="50" value="<% =phone%>">
  501.     </td>
  502. </tr>
  503. <tr>
  504.     <td class='labelTD'>fax</td>
  505.     <td class='dataTD' >
  506.         <input type=text  name="fax" size="" maxlength="50" value="<% =fax%>">
  507.     </td>
  508. </tr>
  509. <tr>
  510.     <td class='labelTD'>notes</td>
  511.     <td class='dataTD' >
  512.         
  513.         <textarea  name="notes" rows='10' cols='70'><% =notes%></textarea>
  514.         
  515.     </td>
  516. </tr>
  517. <tr>
  518.     <td class='labelTD'>access level</td>
  519.     <td class='dataTD' >
  520.     <%
  521.     if not isnull(accesslevel) then
  522.          if (accesslevel < 1) AND (not accesslevel) then accesslevel = 0
  523.     else
  524.         accesslevel = 0
  525.     end if
  526.     %>
  527.         
  528.         <select name="accesslevel" >
  529.         
  530.         <option <% if "1" = cStr(accesslevel) then %>selected<% end if %> value="1">1-member</option>
  531.         <option <% if "2" = cStr(accesslevel) then %>selected<% end if %> value="2">2-author</option>
  532.         <option <% if "3" = cStr(accesslevel) then %>selected<% end if %> value="3">3-admin</option>
  533.         <option <% if "4" = cStr(accesslevel) then %>selected<% end if %> value="4">4-super admin</option>
  534.         </select>
  535.         
  536.     </td>
  537. </tr>
  538. <tr>
  539.     <td class='labelTD'>mailing list</td>
  540.     <td class='dataTD' >
  541.         <% if mailing_list = "" then mailing_list = false %>
  542.         <input type=checkbox  <% if mailing_list then %>checked<% end if %> name="mailing_list" value="1">
  543.     </td>
  544. </tr>
  545. <tr>
  546.     <td class=labelTD align=right> 
  547.     <% if user_id <> "" then %><input type=button name=new_button value='NEW' onclick="window.location = '<% =request.servervariables("script_name") %>'"><% end if %>
  548.     </td>
  549.     <td class=dataTD>
  550.     <% if user_id = "" then %><input type=submit name=insert_button value='INSERT'><% end if %>
  551.     <% if user_id <> "" then %><input type=submit name=update_button value='UPDATE'><% end if %>
  552.     <% if user_id <> "" then %><input type=submit name=delete_button value='DELETE' onclick="document.edit_Users.action.value = 'delete_edit_Users'"><% end if %>
  553.     </td>
  554. <input type=hidden name="action" value="<% if user_id <> "" then %>update<% else %>insert<%end if %>_edit_Users"></tr>
  555.  
  556. </form>
  557. </table>
  558.  
  559.  
  560. <%
  561.  
  562. page_no = request("page_no")
  563. if page_no = "" then page_no = 1
  564.  
  565. if view_Users_sql <> "" then
  566.     cmd.CommandText = view_Users_sql
  567.     rs.Filter = ""
  568.     rs.CursorLocation = 3
  569.     rs.CacheSize = 5
  570.     rs.Open cmd
  571.     if not rs.EOF then
  572.             rs.MoveFirst
  573.             rs.PageSize = 30
  574.             max_count = cInt(rs.PageCount)
  575.             num_recs = rs.RecordCount
  576.             rs.AbsolutePage = page_no
  577.             results = true
  578.     else
  579.         results = false
  580.         rs.Close
  581.     end if
  582. else
  583.     results = false
  584. end if
  585. rec_count = 0
  586.  
  587. %>
  588.  
  589. <table class='headerTable'>
  590. <tr>
  591. <td class='headerTD'>
  592. User List
  593. </td>
  594. </tr>
  595. </table>
  596. <%
  597.  
  598. if results = true then
  599.  
  600. %>
  601.  
  602. <table  >
  603. <form name="view_Users" action="" method="get" >
  604. <tr>
  605.     <td class='fieldTD'></td>
  606.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=user_name" class=fieldFont title="">username</a></td>
  607.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=f_name" class=fieldFont title="">first</a></td>
  608.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=l_name" class=fieldFont title="">last</a></td>
  609.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=email" class=fieldFont title="">email</a></td>
  610.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=city" class=fieldFont title="">city</a></td>
  611.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=state" class=fieldFont title="">state</a></td>
  612.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=postalcode" class=fieldFont title="">zip</a></td>
  613.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=country" class=fieldFont title="">country</a></td>
  614.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=dtInserted" class=fieldFont title="">added</a></td>
  615.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=accesslevel" class=fieldFont title="">access</a></td>
  616.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=mailing_list" class=fieldFont title="">mailing list</a></td>
  617. </tr>
  618. <%
  619.  
  620. do while not rs.EOF AND (rec_count < rs.Pagesize)
  621.  
  622. ':: read db record
  623. on error resume next
  624. edit_link = rs("edit_link")
  625. user_id = rs("user_id")
  626. user_name = rs("user_name")
  627. f_name = rs("f_name")
  628. l_name = rs("l_name")
  629. email = rs("email")
  630. city = rs("city")
  631. state = rs("state")
  632. postalcode = rs("postalcode")
  633. country = rs("country")
  634. dtInserted = rs("dtInserted")
  635. accesslevel = rs("accesslevel")
  636. mailing_list = rs("mailing_list")
  637. on error goto 0
  638.  
  639. %>
  640. <tr>
  641.     <td class='dataTD' >
  642.         [ <a href='admin_users.asp?user_id=<% =user_id %>' class=dataFont>edit</a> ]<% =edit_link %>
  643.     </td>
  644.         
  645.         <input type=hidden name="user_id" value="<% =user_id %>">
  646.         
  647.     <td class='dataTD' >
  648.         <% =user_name %>
  649.     </td>
  650.     <td class='dataTD' >
  651.         <% =f_name %>
  652.     </td>
  653.     <td class='dataTD' >
  654.         <% =l_name %>
  655.     </td>
  656.     <td class='dataTD' >
  657.         <% =email %>
  658.     </td>
  659.     <td class='dataTD' >
  660.         <% =city %>
  661.     </td>
  662.     <td class='dataTD' >
  663.         <% =state %>
  664.     </td>
  665.     <td class='dataTD' >
  666.         <% =postalcode %>
  667.     </td>
  668.     <td class='dataTD' >
  669.         <% =country %>
  670.     </td>
  671.     <td class='dataTD' >
  672.         <% =dtInserted %>
  673.     </td>
  674.     <td class='dataTD' >
  675.         <% =accesslevel %>
  676.     </td>
  677.     <td class='dataTD' >
  678.         <% =mailing_list %>
  679.     </td>
  680. </tr>
  681. <%
  682.  
  683. rs.MoveNext
  684. rec_count = rec_count + 1
  685. loop
  686. rs.Close
  687.  
  688. %>
  689.  
  690. </form>
  691. </table>
  692. <%
  693.  
  694. else
  695.  
  696. %>
  697.  
  698.     no matches were found.
  699.  
  700. <%
  701.  
  702. end if
  703.  
  704. %>
  705.  
  706. <%
  707.  if max_count > 1 then 
  708. %>
  709.  
  710. <!-- paging footer -->
  711. <TABLE class=HeaderTable >
  712.     <tr>
  713.         <td width="20%" class=HeaderTD>
  714.             <% if page_no > 1 then %>
  715.             <a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no-1 %>&sortby=<% =request("sortby") %>">PREV</a>
  716.             <% else %>            <% end if %>        </td>
  717.         <td align=center class=HeaderTD>
  718.             Page 
  719.             <% for i = 1 to max_count %>
  720.             <% if i = cint(page_no) then %>
  721.             <b><%=i%></b>
  722.             <% else %>
  723.             <a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =i %>&sortby=<% =request("sortby") %>"><%=i%></a>
  724.             <% end if %>
  725.             <%next %>
  726.         </td>
  727.         <td align=right width="20%" class=HeaderTD>
  728.             <% if cInt(page_no) < cInt(max_count) then %>
  729.             <a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no+1 %>&sortby=<% =request("sortby") %>">NEXT</a>
  730.             <% end if %>
  731.         </td>
  732.     </tr>
  733. </TABLE>
  734. <% end if %>
  735.  
  736.  
  737.  
  738.  
  739. <!-- #include file=i_footer.asp -->
  740.  
  741.  
  742. <%
  743. ':: assure that any db resources are freed
  744. on error resume next
  745. rs.Close
  746. set rs = NOTHING
  747. cn.Close
  748. set cn = NOTHING
  749. user_cn.Close
  750. set user_cn = NOTHING
  751. on error goto 0
  752. %>
  753.